home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib8 / v_10_04 / 1004107b < prev    next >
Encoding:
Text File  |  1995-11-01  |  228 b   |  17 lines
  1. Listing 4
  2. *******
  3.  
  4. DCL 1 RECIN,
  5.     2 NAME    CHAR(30),
  6.     2 ADDRESS CHAR(20),
  7.     2 CITY    CHAR(15),
  8.     2 STATE   CHAR(2),
  9.     2 ZIP     CHAR(5);
  10.  
  11.     ...
  12.  
  13.     READ FILE (FILIN) INTO (INN);
  14.     STRING(RECIN) = INN;
  15.     ...
  16.  
  17.